|
500
|
How can I get the number of results after a filter is applied
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function List1_Click()
With List1
.ClearFilter
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function List1_FilterChange()
With List1
alert( "Items.MatchItemCount" )
alert( .Items.MatchItemCount )
alert( .FormatABC("value < 0 ? `filter applied: ` + abs(value + 1) + ` result(s)` : `no filter`",.Items.MatchItemCount) )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.Add "Item A"
.Add "Item B"
.Add "Item C"
End With
.FilterBarPromptVisible = 1
.FilterBarPromptPattern = "Item"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
499
|
How can I programmatically clear the control's filter
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function List1_Click()
With List1
.ClearFilter
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.Add "Item A"
.Add "Item B"
.Add "Item C"
End With
.FilterBarPromptVisible = 1
.FilterBarPromptPattern = "B"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
498
|
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt-combined)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.Add "Item A"
.Add "Item B"
.Add "Item C"
End With
.FilterBarPromptPattern = "B"
.FilterBarPromptVisible = 3 ' FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
With .Columns.Item(0)
.FilterType = 240
.Filter = "Item B"
End With
.ApplyFilter
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
497
|
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.Add "Item A"
.Add "Item B"
.Add "Item C"
End With
.FilterBarPromptVisible = 1
.FilterBarPromptPattern = "B"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
496
|
Is it possible to prevent closing the control's filter bar, so it is always shown
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.Add "Item A"
.Add "Item B"
.Add "Item C"
End With
.FilterBarCaption = "len(value) = 0 ? `<fgcolor=808080>no filter` : value"
.FilterBarPromptVisible = 2
With .Columns.Item(0)
.FilterType = 240
.Filter = "Item B"
End With
.ApplyFilter
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
495
|
How can I find if the control is running in DPI mode
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
alert( .FormatABC("dpi = 1 ? `normal/stretch mode` : `dpi mode`") )
End With
End Function
</SCRIPT>
</BODY>
|
|
494
|
I am using single selection, the question is if possible to select an item only when the user releases the mouse, as currently it selects the item as soon as the user clicks it
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function List1_SelectionChanged()
With List1
alert( "SelectionChanged" )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.FreezeEvents True
.SingleSel = True
.SelectOnRelease = True
.Columns.Add("Column").FormatColumn = "1 apos `A-Z`"
With .Items
.Add ""
.SelectItem(.Add("")) = True
.Add ""
End With
.FreezeEvents False
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
493
|
Is it possible to select nothing
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function List1_SelectionChanged()
With List1
alert( "SelectionChanged" )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.FreezeEvents True
.AllowSelectNothing = True
.Columns.Add("Column").FormatColumn = "1 apos `A-Z`"
With .Items
.Add ""
.SelectItem(.Add("")) = True
.Add ""
End With
.FreezeEvents False
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
492
|
How do I change the drop down filter icon/button (black)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
With .VisualAppearance
.Add 1,"gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQ" & _
"gmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYTh" & _
"dr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA"
End With
.Background(32) = -1
.Background(0) = &H1000000
.Background(26) = RGB(0,0,1)
.Background(27) = RGB(255,255,255)
.Description(25) = "<bgcolor 0><fgcolor ffffff> Exclude </fgcolor></bgcolor>"
.HeaderAppearance = 0
.BackColorHeader = RGB(0,0,0)
.ForeColorHeader = RGB(255,255,255)
.HeaderVisible = True
.BackColorLevelHeader = .BackColor
With .Columns.Add("Filter")
.FilterList = 8448 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowCheckBox
.DisplayFilterButton = True
.AllowSort = False
.AllowDragging = False
End With
With .Items
.Add "One"
.Add "Two"
.Add "Three"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
491
|
How do I change the drop down filter icon/button (white)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
With .VisualAppearance
.Add 2,"gBFLBCJwBAEHhEJAAEhABX8GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwYgmNYiTLAcgAN" & _
"J0WBaGIZJ4gOT5fDKMoEDRRYADFCscwxJybQAqGQKKb+VgAVY/cTyBIAEQSKA0TDOQ5TSKWB4JPZQRBEbZMNBtBIUJquKaqShdQJCU5FdY3Xblez9P7AMBwLFEC4NQ8Y" & _
"NYuPhjR4dRTIMhvVAsUArFh8Zg9GZZFjmDIDT4ydBLTQwcyVIKnP5qOa6XbmPoCQDYKxZHYxPzVDa3axuL76dqCAT7XrXNy1TbNRrzQKfcJqfCbdw2YaDZLOOT3fjuI4" & _
"hhKaRzFAHJ+jYQ4xHuY4gHuGIXGeExqC8Tp6C+PoEm+G5ImycRgh0XwvDGa5rgOeoejyXwnFeQp2mkf5ClgBB9gCWIYAwfYAEKV58mkdwOggNArgOXY2EWLoDkKOA0mg" & _
"bhOGgZApgaSBIHWSYHSmbApgYThmESZYJkIeIkgeCpfliLIHgpMIcmUYYYmODAlg2SI4mWfRfGOEguDcCRjFYAJihCQhJBSDoRmONgKEcI4kFCEJhhOVYTmYnAlEAQhW" & _
"BMJYJGYWoWmWSR2F6F5lnkWAQhUAgpEieRWEuSYkjWGpmkmNhuhuZwJkYcocmaaYkjyEhngnUA6lEFAlAEgI="
.Add 1,"CP:2 -14 -4 -2 4"
End With
.Background(0) = &H1000000
.Background(32) = .BackColor
.HeaderAppearance = 0
.BackColorHeader = RGB(255,255,255)
.HeaderVisible = True
.HeaderHeight = 24
.BackColorLevelHeader = .BackColor
With .Columns.Add("Filter")
.DisplayFilterButton = True
.AllowSort = False
.AllowDragging = False
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
490
|
Can I display the column's multiple-lines caption vertically oriented (method 2)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.HeaderHeight = 48
.ColumnAutoResize = True
With .Columns
.Add "And others ..."
With .Add("")
.HTMLCaption = "First Column"
.HeaderVertical = True
.Width = 36
.AllowSizing = False
.Def(0) = True
.Def(48) = 8
.Position = 0
End With
With .Add("")
.HTMLCaption = "<c><b>Second Column"
.HeaderVertical = True
.Width = 36
.AllowSizing = False
.Def(0) = True
.Def(48) = 8
.Position = 1
End With
With .Add("")
.HTMLCaption = "<r>Third Column"
.HeaderVertical = True
.Width = 36
.AllowSizing = False
.Def(0) = True
.Def(48) = 8
.Position = 2
End With
End With
With .Items
.CellState(.Add("Item 1"),3) = 1
.CellState(.Add("Item 2"),2) = 1
.CellState(.Add("Item 3"),1) = 1
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
489
|
Can I display the column's multiple-lines caption vertically oriented (method 1)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.HeaderHeight = 48
.HeaderSingleLine = False
.ColumnAutoResize = True
With .Columns
.Add "And others ..."
With .Add("First Column")
.HeaderVertical = True
.Width = 36
.AllowSizing = False
.Def(0) = True
.Def(48) = 8
.Position = 0
End With
With .Add("Second Column")
.HeaderBold = True
.HeaderVertical = True
.Width = 36
.AllowSizing = False
.Def(0) = True
.Def(48) = 8
.Position = 1
End With
With .Add("Third Column")
.HeaderVertical = True
.Width = 36
.AllowSizing = False
.Def(0) = True
.Def(48) = 8
.Position = 2
End With
End With
With .Items
.CellState(.Add("Item 1"),3) = 1
.CellState(.Add("Item 2"),2) = 1
.CellState(.Add("Item 3"),1) = 1
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
488
|
Can I display the column's caption vertically oriented (method 2)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.HeaderHeight = 48
.ColumnAutoResize = True
With .Columns
.Add "And others ..."
With .Add("")
.HTMLCaption = "First"
.HeaderVertical = True
.Width = 20
.AllowSizing = False
.Def(0) = True
.Position = 0
End With
With .Add("")
.HTMLCaption = "<c><b>Second"
.HeaderVertical = True
.Width = 20
.AllowSizing = False
.Def(0) = True
.Position = 1
End With
With .Add("")
.HTMLCaption = "<r>Third"
.HeaderVertical = True
.Width = 20
.AllowSizing = False
.Def(0) = True
.Position = 2
End With
End With
With .Items
.CellState(.Add("Item 1"),3) = 1
.CellState(.Add("Item 2"),2) = 1
.CellState(.Add("Item 3"),1) = 1
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
487
|
Can I display the column's caption vertically oriented (method 1)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.HeaderHeight = 48
.ColumnAutoResize = True
With .Columns
.Add "And others ..."
With .Add("First")
.HeaderVertical = True
.Width = 20
.AllowSizing = False
.Def(0) = True
.Position = 0
End With
With .Add("Second")
.HeaderBold = True
.HeaderVertical = True
.Width = 20
.AllowSizing = False
.Def(0) = True
.Position = 1
End With
With .Add("Third")
.HeaderVertical = True
.Width = 20
.AllowSizing = False
.Def(0) = True
.Position = 2
End With
End With
With .Items
.CellState(.Add("Item 1"),3) = 1
.CellState(.Add("Item 2"),2) = 1
.CellState(.Add("Item 3"),1) = 1
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
486
|
How do I get sorted the column as string, numeric, date, date and time. Also how can it be applied to drop down filter panel
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
With .Columns.Add("Date")
.SortType = 2
.DisplayFilterButton = True
.DisplayFilterPattern = False
.DisplayFilterDate = True
.FilterList = 1296 ' FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsDesc
End With
With .Columns.Add("DateTime")
.SortType = 3
.DisplayFilterButton = True
.DisplayFilterPattern = False
.FilterList = 1296 ' FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsDesc
End With
With .Columns.Add("Time")
.SortType = 4
.DisplayFilterButton = True
.DisplayFilterPattern = False
.FilterList = 1296 ' FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsDesc
.FormatColumn = "time(value)"
End With
With .Columns.Add("Numeric")
.SortType = 1
.DisplayFilterButton = True
.FilterList = 1296 ' FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsDesc
End With
With .Columns.Add("String")
.DisplayFilterButton = True
.FilterList = 1296 ' FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsDesc
End With
With .Items
h = .Add(#1/27/2010#)
.Caption(h,1) = #1/27/2010 10:00:00 AM#
.Caption(h,2) = .Caption(h,1)
.Caption(h,3) = 1
.Caption(h,4) = .Caption(h,3)
h = .Add(#1/27/2011#)
.Caption(h,1) = #1/27/2011 9:00:00 AM#
.Caption(h,2) = .Caption(h,1)
.Caption(h,3) = 11
.Caption(h,4) = .Caption(h,3)
h = .Add(#11/2/2010#)
.Caption(h,1) = #11/2/2010 9:00:00 AM#
.Caption(h,2) = .Caption(h,1)
.Caption(h,3) = 2
.Caption(h,4) = .Caption(h,3)
End With
.Columns.Item("DateTime").DisplayFilterDate = False
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
485
|
How can I get ride / hide the image being dragged by OLE Drag and Drop
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function List1_OLEStartDrag(Data,AllowedEffects)
' Data.SetData("data to drag")
With List1
AllowedEffects = 1
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.OLEDropMode = 1
.Background(34) = RGB(255,255,255)
.Columns.Add "Default"
With .Items
.Add "Item 1"
.Add "Item 2"
.Add "Item 3"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
484
|
Is there an event that fires on the exList control when the order of items in the list is changed via dragging
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function List1_AllowAutoDrag(Item,InsertA,InsertB,Cancel)
With List1
With .Items
alert( "After" )
alert( .Caption(InsertA,0) )
alert( "Before" )
alert( .Caption(InsertB,0) )
End With
Cancel = True
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.AutoDrag = 1
.Columns.Add "Task"
With .Items
.Add "Item 1"
.Add "Item 2"
.Add "Item 3"
.Add "Item 4"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
483
|
How can I export checked items only
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
With .Columns
.Add("C1").Def(0) = True
.Add("C2").FormatColumn = "1 index `A-Z`"
.Add("C3").FormatColumn = "100 index ``"
End With
With .Items
.Add "Item 1"
.CellState(.Add("Item 2"),0) = 1
.CellState(.Add("Item 3"),0) = 1
End With
.EndUpdate
alert( "Export CSV Checked Items Only:" )
alert( .Export("","chk") )
End With
End Function
</SCRIPT>
</BODY>
|
|
482
|
How can I export a hidden column
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
With .Columns
.Add "C1"
With .Add("C2")
.FormatColumn = "1 index `A-Z`"
.Visible = False
End With
With .Add("C3")
.FormatColumn = "100 index ``"
.Visible = False
End With
End With
With .Items
.Add "Item 1"
.Add "Item 2"
.Add "Item 3"
End With
.EndUpdate
alert( "Export CSV Hidden Columns (1,2):" )
alert( .Export("","|1,2") )
End With
End Function
</SCRIPT>
</BODY>
|
|
481
|
Is it possible to have a different alignment for parts of the cell's caption
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.DrawGridLines = -1
With .Columns.Add("Default")
.Def(0) = True
End With
With .Items
.CellHAlignment(.Add("all-left"),0) = 0
.CellHAlignment(.Add("all-center"),0) = 1
.CellHAlignment(.Add("all-right"),0) = 2
h = .Add("left<c>center<r>right")
.CaptionFormat(h,0) = 1
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
480
|
I have a column with Def(exCellSingleLine) property on False, word-wrapping, and I am wondering if possible to update the column's content while user is resizing it
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
With .Columns
With .Add("MultipleLine")
.Width = 32
.Def(16) = False
.Def(64) = True
End With
With .Add("SingleLine")
.Def(16) = False
End With
End With
With .Items
.Caption(.Add("This is a bit of long text that should break the line"),1) = "This is a bit of long text that should break the line"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
479
|
How can I hide the cell's tooltip
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function List1_ToolTip(ItemIndex,ColIndex,Visible,X,Y,CX,CY)
With List1
alert( "The tooltip is about to be shown" )
Visible = False
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.Columns.Add "Def"
With .Items
.CellToolTip(.Add("Item 1"),0) = "This is a bit of text that's shown when cursor hovers the item."
.CellToolTip(.Add("Item 2"),0) = "This is a bit of text that's shown when cursor hovers the item."
.CellToolTip(.Add("Item 3"),0) = "This is a bit of text that's shown when cursor hovers the item."
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
478
|
How can I find out if an item is selected or unselected
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function List1_MouseMove(Button,Shift,X,Y)
With List1
i = .ItemFromPoint(-1,-1,c,hit)
With .Items
alert( .SelectItem(i) )
End With
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.Columns.Add "Header"
With .Items
.Add "Item 1"
.SelectItem(.Add("Item 2")) = True
.Add "Item 3"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
477
|
How do I sort the index column as numeric
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function List1_AddItem(Item)
With List1
With .Items
.CellData(Item,1) = Item
End With
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.DrawGridLines = -1
.ColumnAutoResize = True
.ShowFocusRect = False
With .Columns.Add("Next")
.Def(48) = 4
.Def(52) = 4
End With
With .Columns.Add("Index")
.AllowSizing = False
.Width = 48
.FormatColumn = "(((0 := (1 index ``)) mod 3) case ( default: ``; 0 : `<r><fgcolor=B0B0B0>`; 1: ``; 2 : `<c><fgcolor=808080>` )) + str(=:0)"
.Def(17) = 1
.SortType = 5
.Position = 0
End With
With .Items
.Add "Item 1"
.Add "Item 2"
.Add "Item 3"
.Add "Item 4"
.Add "Item 5"
.Add "Item 6"
.Add "Item 7"
.Add "Item 8"
.Add "Item 9"
.Add "Item 10"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
476
|
How can I put icons/images into buttons
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.ColumnAutoResize = True
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
With .Columns.Add("C+B")
.AllowSizing = False
.Width = 48
.FormatColumn = "` <img>` + ( 1 + (1 index ``) mod 3 ) + `</img> `"
.Def(17) = 1
.Def(0) = True
.Def(2) = True
.Def(3) = True ' DefColumnEnum.exCellHasButton Or DefColumnEnum.exCellHasRadioButton
End With
.Columns.Add ""
.DrawGridLines = 2
.DefaultItemHeight = 20
With .Items
.Add ""
.Add ""
.Add ""
.Add ""
.Add ""
.Add ""
.Add ""
.Add ""
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
475
|
Is it possible to have a CheckBox and Button TOGETHER on all cells in a column
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function List1_CellButtonClick(Item,ColIndex)
With List1
alert( "CellButtonClick" )
alert( Item )
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function List1_CellStateChanged(Item,ColIndex)
With List1
alert( "CellStateChanged" )
alert( Item )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.ColumnAutoResize = True
With .Columns.Add("")
.AllowSizing = False
.Width = 32
.FormatColumn = "1 index ``"
End With
With .Columns.Add("Def")
.AllowSizing = False
.Width = 48
.FormatColumn = "` `"
.Def(0) = True
.Def(2) = True
.Def(3) = True ' DefColumnEnum.exCellHasButton Or DefColumnEnum.exCellHasRadioButton
End With
.Columns.Add ""
With .Items
.Add ""
.Add ""
.Add ""
.Add ""
.Add ""
.Add ""
.Add ""
.Add ""
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
474
|
Does filtering work with umlauts / accents characters
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
With .Columns.Add("Names")
.DisplayFilterButton = True
.FilterType = 3
End With
With .Items
.Add "Mantel"
.Add "Mechanik"
.Add "Motor"
.Add "Murks"
.Add "Märchen"
.Add "Möhren"
.Add "Mühle"
.Add "Sérigraphie"
End With
.Columns.Item(0).Filter = "*ä*"
.ApplyFilter
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
473
|
Can I set the search box / filterbarprompt to invisible, so I can use my own input and *string* via VBA
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.ColumnAutoResize = True
.ContinueColumnScroll = 0
.MarkSearchColumn = False
.SearchColumnIndex = 1
.FilterBarHeight = 0
.FilterBarPromptVisible = True ' True
With .Columns
.Add("Name").Width = 96
.Add("Title").Width = 96
.Add "City"
End With
With .Items
h0 = .Add("Nancy Davolio")
.Caption(h0,1) = "Sales Representative"
.Caption(h0,2) = "Seattle"
h0 = .Add("Andrew Fuller")
.Caption(h0,1) = "Vice President, Sales"
.Caption(h0,2) = "Tacoma"
.SelectItem(h0) = True
h0 = .Add("Janet Leverling")
.Caption(h0,1) = "Sales Representative"
.Caption(h0,2) = "Kirkland"
h0 = .Add("Margaret Peacock")
.Caption(h0,1) = "Sales Representative"
.Caption(h0,2) = "Redmond"
h0 = .Add("Steven Buchanan")
.Caption(h0,1) = "Sales Manager"
.Caption(h0,2) = "London"
h0 = .Add("Michael Suyama")
.Caption(h0,1) = "Sales Representative"
.Caption(h0,2) = "London"
h0 = .Add("Robert King")
.Caption(h0,1) = "Sales Representative"
.Caption(h0,2) = "London"
h0 = .Add("Laura Callahan")
.Caption(h0,1) = "Inside Sales Coordinator"
.Caption(h0,2) = "Seattle"
h0 = .Add("Anne Dodsworth")
.Caption(h0,1) = "Sales Representative"
.Caption(h0,2) = "London"
End With
.FilterBarPromptPattern = "London"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
472
|
How can I align captions of items with checkbox, with items with no checkbox
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.Columns.Add "Default"
With .Items
.CellImages(.Add(0),0) = "1"
.CellHasCheckBox(.Add(1),0) = True
.CellImages(.Add(2),0) = "1"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
471
|
How do I programmatically scroll the control (method 2)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.ColumnAutoResize = False
.ContinueColumnScroll = False
Set rs = CreateObject("ADOR.Recordset")
With rs
.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExList\Sample\Access\SAMPLE.ACCDB",3,3
End With
.DataSource = rs
.Layout = "vscroll = 10"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
470
|
How do I programmatically scroll the control (method 1)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.ColumnAutoResize = False
.ContinueColumnScroll = False
Set rs = CreateObject("ADOR.Recordset")
With rs
.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExList\Sample\Access\SAMPLE.ACCDB",3,3
End With
.DataSource = rs
.ScrollPos(True) = 10
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
469
|
How can I decode the Layout property
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
With .Columns
.Add "C1"
.Add("C2").Position = 1
End With
With .Items
.Caption(.Add("SubItem 1.1"),1) = "SubItem 1.2"
.Caption(.Add("SubItem 2.1"),1) = "SubItem 2.2"
End With
.Columns.Item("C2").SortOrder = 2
.EndUpdate
alert( "Encoded:" )
alert( .Layout )
With CreateObject("Exontrol.Print")
alert( "Decoded: " )
alert( .Decode64TextW(List1.Layout) )
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
468
|
Does the title of the cell's tooltip supports HTML format
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
With .Columns.Add("")
.Caption = ""
.HTMLCaption = "Column"
End With
With .Items
h = .Add("tooltip w/h different title")
.CellToolTip(h,0) = "<c><b><fgcolor=FF0000>Title</fgcolor></b><br>This is bit of text that's shown when the user hovers the cell. This shows the tit" & _
"le centered with a different color."
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
467
|
How do I specify a different title for the cell's tooltip
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
With .Columns.Add("")
.Caption = "This is the title"
.HTMLCaption = "Column"
End With
With .Items
h = .Add("tooltip w/h different title")
.CellToolTip(h,0) = "This is bit of text that's shown when the user hovers the cell."
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
466
|
The cell's tooltip displays the column's caption in its title. How can I get ride of that
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
With .Columns
.Add "C1"
.Add "C2"
End With
With .Items
h = .Add("tooltip w/h caption")
.CellToolTip(h,0) = "This is bit of text that's shown when the user hovers the cell. This shows the column's caption in the title."
.Caption(h,1) = "tooltip no caption"
.CellToolTip(h,1) = "This is bit of text that's shown when the user hovers the cell. This shows no column's caption in the title."
End With
With .Columns.Item("C2")
.HTMLCaption = .Caption
.Caption = ""
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
465
|
When you click the cell it takes some time before the edit box appears, can this delay be removed
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function List1_Click()
With List1
h = .ItemFromPoint(-1,-1,ColIndex,HitTestInfo)
.Items.Edit h,ColIndex
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.AllowEdit = True
.Columns.Add "Default"
With .Items
.Add ""
.Add "Edit"
.Add ""
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
464
|
How can I programmatically show the column's filter
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function List1_RClick()
With List1
i = .ItemFromPoint(-1,-1,c,hit)
.Columns.Item(c).ShowFilter "-1,-1,128,128"
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.ShowFocusRect = False
With .Columns.Add("Items ")
.DisplayFilterPattern = False
.FilterList = 9472 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
End With
With .Items
.Add "Item 1"
.Add "Item 2"
.Add "Item 3"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
463
|
I want to be able to click on one of the headers, and sort by other column. How can I do that
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function List1_ColumnClick(Column)
' Column.SortOrder = 1
With List1
.SortOnClick = -1
.Columns.Item("Sort").SortOrder = 1
.SortOnClick = 1
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.SortOnClick = 1
.Columns.Add "Items"
.Columns.Add("Sort").Visible = False
With .Items
.Caption(.Add("Item 1 (3)"),1) = 3
.Caption(.Add("Item 2 (1)"),1) = 1
.Caption(.Add("Item 3 (2)"),1) = 2
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
462
|
How can I sort by two-columns, one by date and one by time
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.SingleSort = False
With .Columns
.Add("Index").FormatColumn = "1 index ``"
.Add("Date").SortType = 2
With .Add("Time")
.SortType = 4
.FormatColumn = "time(value)"
End With
End With
With .Items
h = .Add(0)
.Caption(h,1) = #1/1/2001#
.Caption(h,2) = #1/1/2001 10:00:00 AM#
h = .Add(0)
.Caption(h,1) = #12/31/2000#
.Caption(h,2) = #1/1/2001 10:00:00 AM#
h = .Add(0)
.Caption(h,1) = #1/1/2001#
.Caption(h,2) = #1/1/2001 6:00:00 AM#
h = .Add(0)
.Caption(h,1) = #12/31/2000#
.Caption(h,2) = #1/1/2001 8:00:00 AM#
h = .Add(0)
.Caption(h,1) = #1/1/2001#
.Caption(h,2) = #1/1/2001 8:00:00 AM#
h = .Add(0)
.Caption(h,1) = #12/31/2000#
.Caption(h,2) = #1/1/2001 6:00:00 AM#
End With
.Layout = "multiplesort=""C1:1 C2:1"""
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
461
|
How can I connect to a DBF file
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.ColumnAutoResize = False
.ContinueColumnScroll = False
.MarkSearchColumn = False
Set rs = CreateObject("ADODB.Recordset")
With rs
.Open "Select * From foxcode.DBF","Provider=vfpoledb;Data Source=C:\Program Files\Microsoft Visual FoxPro 9\",3,3
End With
.DataSource = rs
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
460
|
Does your control supports scrolling by touching the screen
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.ColumnAutoResize = False
Set rs = CreateObject("ADOR.Recordset")
With rs
.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExList\Sample\Access\SAMPLE.ACCDB",3,3
End With
.DataSource = rs
.ContinueColumnScroll = True
.ScrollBySingleLine = True
.AutoDrag = 4112 ' AutoDragEnum.exAutoDragScrollOnShortTouch Or AutoDragEnum.exAutoDragScroll
End With
End Function
</SCRIPT>
</BODY>
|
|
459
|
How can I enlarge the size of the control's scroll bars, for using on touch screens
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.ScrollBars = 15
.ScrollWidth = 32
.ScrollHeight = 32
.ScrollButtonHeight = 32
.ScrollButtonWidth = 32
End With
End Function
</SCRIPT>
</BODY>
|
|
458
|
Is there a syntax for conditional formatting of items, based on CellState/CellStateChange
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function List1_CellStateChanged(Item,ColIndex)
With List1
With .Items
.Caption(Item,2) = .CellState(Item,0)
End With
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.ShowFocusRect = False
.MarkSearchColumn = False
.SelBackMode = 1
Set var_ConditionalFormat = .ConditionalFormats.Add("%2 != 0")
With var_ConditionalFormat
.Bold = True
.ForeColor = RGB(255,0,0)
.ApplyTo = -1
End With
With .Columns.Add("")
.Def(0) = True
.Width = 16
.AllowSizing = False
End With
.Columns.Add "Information"
.Columns.Add("Hidden").Visible = False
With .Items
.Caption(.Add(""),1) = "This is a bit of text associated"
h = .Add("")
.Caption(h,1) = "This is a bit of text associated"
.CellState(h,0) = 1
.Caption(.Add(""),1) = "This is a bit of text associated"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
457
|
How can I display the caption bellow to picture
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.ScrollBySingleLine = True
.HTMLPicture("p1") = "c:\exontrol\images\zipdisk.gif"
.HTMLPicture("p2") = "c:\exontrol\images\auction.gif"
.Columns.Add "Default"
With .Items
h = .Add("<c><img>p1</img><br><c>your caption1")
.CellSingleLine(h,0) = False
.CaptionFormat(h,0) = 1
h = .Add("<c><img>p2</img><br><c>your caption2")
.CellSingleLine(h,0) = False
.CaptionFormat(h,0) = 1
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
456
|
How can I add a vertical padding
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.DrawGridLines = -1
With .Columns.Add("Padding")
.Def(0) = True
.Def(16) = False
.Def(48) = 6
.Def(49) = 6
.Def(50) = 6
.Def(51) = 6
End With
With .Items
.Add "padding"
.Add "padding"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
455
|
How do you embed HTML options into the anchor click string
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function List1_AnchorClick(AnchorID,Options)
With List1
alert( AnchorID )
alert( Options )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
With .Columns
.Add("Car").Def(17) = 1
End With
With .Items
.Add "<a mazda_1;options for 1>Mazda <b>1</b></a>"
.Add "<a mazda_2;options for 2>Mazda <b>2</b></a>"
.Add "<a mazda_3;options for 3a>Mazda <b>3.a</b></a>"
.Add "<a mazda_3;options for 3b>Mazda <b>3.b</b></a>"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
454
|
I have the rows with different background color, and when I select the item it takes the color of the SelBackColor, and therefore is no longer visible behind the color. Is there any option to make the item's color being visible (method 3)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAEGg4BVEIQAAYAQGKIYBkAKBQAGaAoDDMOQwQwAAxjGKEEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQCWIAzATGYBRfIUEgjBM6ExwG78e" & _
"gBHp/ZpkACIJJAaRjHQdJxGKKMQB9DIhCZpeKhWgkKIJBzOEyBRC4ERBGqNGrsIgLEqWZpnWhaNpWXYTLyBN64LhuK46g53O6wLxvK6hEr2dJ/YBcIAOfghf4NQ7EMRx" & _
"LC8Mw3BDvYDkOAABAIgI="
.SelBackColor = &H1fffffe
.ShowFocusRect = False
.Columns.Add "Items"
With .Items
.ItemBackColor(.Add("red")) = RGB(255,0,0)
.ItemBackColor(.Add("blue")) = RGB(0,0,255)
.ItemBackColor(.Add("green")) = RGB(0,255,0)
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
453
|
I have the rows with different background color, and when I select the item it takes the color of the SelBackColor, and therefore is no longer visible behind the color. Is there any option to make the item's color being visible (method 2)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.SelBackMode = 1
.ShowFocusRect = False
.Columns.Add "Items"
With .Items
.ItemBackColor(.Add("red")) = RGB(255,0,0)
.ItemBackColor(.Add("blue")) = RGB(0,0,255)
.ItemBackColor(.Add("green")) = RGB(0,255,0)
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
452
|
I have the rows with different background color, and when I select the item it takes the color of the SelBackColor, and therefore is no longer visible behind the color. Is there any option to make the item's color being visible (method 1)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.SelBackColor = .BackColor
.SelForeColor = .ForeColor
.ShowFocusRect = True
.Columns.Add "Items"
With .Items
.ItemBackColor(.Add("red")) = RGB(255,0,0)
.ItemBackColor(.Add("blue")) = RGB(0,0,255)
.ItemBackColor(.Add("green")) = RGB(0,255,0)
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
451
|
I am using the FormatColumn property, but is it also possible to have a blank field when the value is '0'. I've tried the 'leading zero' flag in the FormatColumn, but that did not work
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.Columns.Add("Currency").FormatColumn = "int(value) != 0 ? (value format `0||3|,`) : ``"
.Items.Add 123456789
.Items.Add 1234
.Items.Add 0
.Items.Add 2345
End With
End Function
</SCRIPT>
</BODY>
|
|
450
|
Do you have a VB sample on how to use .FormatColumn to show this number '123456789' like '123,456,789'
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.Columns.Add("Currency").FormatColumn = "value format `0||3|,`"
.Items.Add 123456789
.Items.Add 1234
End With
End Function
</SCRIPT>
</BODY>
|
|
449
|
Is it possible to change the image while do OLE Drag and Drop operations
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function List1_OLEStartDrag(Data,AllowedEffects)
' Data.SetData(Items.FocusItem)
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.Columns.Add "Default"
.Items.Add "Item 1"
.Items.Add "Item 2"
.OLEDropMode = 1
.HTMLPicture("OLEDragDropImage") = "C:\Program Files\Exontrol\ExList\Sample\VB\UNICODE\unicode.jpg"
End With
End Function
</SCRIPT>
</BODY>
|
|
448
|
Is it possible to change the image while do OLE Drag and Drop operations
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function List1_OLEStartDrag(Data,AllowedEffects)
' Data.SetData(Items.FocusItem)
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.Columns.Add "Default"
.Items.Add "Item 1"
.Items.Add "Item 2"
.OLEDropMode = 1
.VisualAppearance.Add 1,"C:\Program Files\Exontrol\ExG2antt\Sample\EBN\xpbselIcon.ebn"
.Background(34) = &H1000000
.Background(33) = RGB(255,255,255)
End With
End Function
</SCRIPT>
</BODY>
|
|
447
|
How can copy and paste the selection to Microsoft Word, any OLE compliant application, as a snapshot
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.HTMLPicture("p1") = "c:\exontrol\images\card.png"
.HTMLPicture("p2") = "c:\exontrol\images\sun.png"
.AutoDrag = 11
.ShowFocusRect = False
.DefaultItemHeight = 26
.Columns.Add "Task"
With .Items
.CaptionFormat(.Add("<img>p1:32</img> Group 1"),0) = 1
.CaptionFormat(.Add("<img>p2:32</img> Group 2"),0) = 1
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
446
|
How can copy and paste the selection to Microsoft Word, any OLE compliant application, as a image
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.HTMLPicture("p1") = "c:\exontrol\images\card.png"
.HTMLPicture("p2") = "c:\exontrol\images\sun.png"
.HeaderHeight = 24
.DefaultItemHeight = 48
.DrawGridLines = -2 ' &Hfffffffc Or GridLinesEnum.exVLines
.GridLineColor = RGB(240,240,240)
.SelBackMode = 1
.ColumnAutoResize = False
.ContinueColumnScroll = False
Set rs = CreateObject("ADOR.Recordset")
With rs
.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExList\Sample\Access\SAMPLE.ACCDB",3,3
End With
.DataSource = rs
.Columns.Item(0).Def(17) = 1
.Columns.Item(0).FormatColumn = "value + ` <img>p` + (1 + (value mod 3 ) ) + `</img>`"
.Columns.Item(0).Width = 112
.AutoDrag = 10
.SingleSel = False
With .Items
.SelectItem(1) = True
.SelectItem(2) = True
.SelectItem(3) = True
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
445
|
How can copy and paste the selection to Microsoft Word, Excel or any OLE compliant application, as a text
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.ColumnAutoResize = False
.ContinueColumnScroll = False
Set rs = CreateObject("ADOR.Recordset")
With rs
.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExList\Sample\Access\SAMPLE.ACCDB",3,3
End With
.DataSource = rs
.AutoDrag = 9
.SingleSel = False
With .Items
.SelectItem(1) = True
.SelectItem(3) = True
.SelectItem(4) = True
.SelectItem(5) = True
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
444
|
How can I change the row's position to another, by drag and drop. Is it possible
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.AutoDrag = 1
.Columns.Add "Task"
With .Items
.Add "Item 1"
.Add "Item 2"
.Add "Item 3"
.Add "Item 4"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
443
|
Does your control support subscript or superscript, in HTML captions
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.Columns.Add("Column").Def(17) = 1
.Items.Add "<sha ;;0>Event <b><font ;6><off -6>2<off 4>3<off 4>1"
End With
End Function
</SCRIPT>
</BODY>
|
|
442
|
Is there any property I can save and restore automatically the current setting, column position, size, and so on (2)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.Columns.Add "Column"
With .Items
.Add "Item 1"
.Add "Item 2"
.Add "Item 3"
End With
.Layout = "Select=""0"";SingleSort=""C0:2"";Columns=1"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
441
|
Is there any property I can save and restore automatically the current setting, column position, size, and so on (1)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.Columns.Add "Column"
With .Items
.Add "Item 1"
.Add "Item 2"
.Add "Item 3"
End With
.Layout = "gBjAAwAAuABmABpABsAB0ABlAByhoAPIAOEPAA9gYABoABQAgUEg0XN4AOcJicKkpujMbjsfkMFk0YhkQgUOjUEl8gjcGO0ok8KMULjEaGMcj08kQAO8oMkTNEtGwAG" & _
"QAqc7gUlhh1ABtAEsk9GpEfhElgVcsMupNlnlonlaAFcr0shUsp8QPEtnVJqJhmcIhUMh0QiU5sYAqMngUSuEMw07k8Qv0SgVRrNEuVflF2jF5x9JyNEm0TjQijemyE0" & _
"jE3t+YruauoAu4Az1qj9BzRn0UzksSnAA0xDjY6qnAw8OiUQ0dwzN0zWz2t7j8/xURAGNvWH6k8xlEhklhEI0O/6QAgI="
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
440
|
Is there any public method to export the selected data
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
With .Columns
.Add "C1"
.Add("C2").FormatColumn = "1 index `A-Z`"
.Add("C3").FormatColumn = "100 index ``"
End With
With .Items
.Add "Item 1"
.SelectItem(.Add("Item 2")) = True
.Add "Item 3"
End With
.EndUpdate
alert( "Export CSV Selected Items Only:" )
alert( .Export("","sel") )
End With
End Function
</SCRIPT>
</BODY>
|
|
439
|
How can I change the visual aspect of the links in the sort bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.ColumnAutoResize = False
Set rs = CreateObject("ADOR.Recordset")
With rs
.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExList\Sample\Access\SAMPLE.ACCDB",3,3
End With
.DataSource = rs
.SortBarHeight = 24
.HeaderHeight = 24
.BackColorSortBar = RGB(240,240,240)
.BackColorSortBarCaption = .BackColor
.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAEGg4BdsIQAAYAQGKIYBkAKBQAGaAoDDgNw0QwAAxjMK0EwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpA" & _
"AWL4tCyMc7QHKAWhrEAbJjgQYJUh+TQAAZCIJRXRQAL/K6rKwnSCQIgkUBpGKdBynEYoYxAfyESCJWyIahWAwoQjUMB1HLQAAxC5kKbkIxyBABFBdVjVeBYG78Bz+ABj" & _
"EovbAMEwPBqAMwmIAZDheA4FR4AGhTXKcbxrFaXZSzKckPRoADSZq1Sg5LjDJI2ABqU6ABqNLZtJKsZS4apABrWeZ3Q7QMLdFTwA4PH6EZhxXAYbTVeaPZjQIBAgI"
.SortBarVisible = True
.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
With .Columns.Item(1)
.Alignment = 1
.Def(4) = 15790320
.SortOrder = True ' True
End With
With .Columns.Item(5)
.Alignment = 1
.Def(4) = 16119285
.SortOrder = True ' True
End With
.Background(28) = &H1000000
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
438
|
How can I have a case-insensitive filter (exFilterDoCaseSensitive flag is not set)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.MarkSearchColumn = False
With .Columns
With .Add("Car")
.DisplayFilterButton = True
.FilterType = 240
.Filter = "MAZDA"
End With
With .Add("Equipment")
.DisplayFilterButton = True
.DisplayFilterPattern = False
.CustomFilter = "Air Bag||*Air Bag*|||Air condition||*Air condition*|||ABS||*ABS*|||ESP||*ESP*"
.FilterType = 3
.Filter = "AIR BAG"
End With
End With
With .Items
.Caption(.Add("Mazda"),1) = "Air Bag"
.Caption(.Add("Toyota"),1) = "Air Bag,Air condition"
.Caption(.Add("Ford"),1) = "Air condition"
.Caption(.Add("Nissan"),1) = "Air Bag,ABS,ESP"
.Caption(.Add("Mazda"),1) = "Air Bag, ABS,ESP"
.Caption(.Add("Mazda"),1) = "ABS,ESP"
End With
.ApplyFilter
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
437
|
How can I have a case-sensitive filter
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.MarkSearchColumn = False
With .Columns
With .Add("Car")
.DisplayFilterButton = True
.FilterType = 496 ' FilterTypeEnum.exFilterDoCaseSensitive Or FilterTypeEnum.exFilter
.Filter = "Mazda"
End With
With .Add("Equipment")
.DisplayFilterButton = True
.DisplayFilterPattern = False
.CustomFilter = "Air Bag||*Air Bag*|||Air condition||*Air condition*|||ABS||*ABS*|||ESP||*ESP*"
.FilterType = 259 ' FilterTypeEnum.exFilterDoCaseSensitive Or FilterTypeEnum.exPattern
.Filter = "Air Bag"
End With
End With
With .Items
.Caption(.Add("Mazda"),1) = "Air Bag"
.Caption(.Add("Toyota"),1) = "Air Bag,Air condition"
.Caption(.Add("Ford"),1) = "Air condition"
.Caption(.Add("Nissan"),1) = "Air Bag,ABS,ESP"
.Caption(.Add("Mazda"),1) = "Air Bag, ABS,ESP"
.Caption(.Add("Mazda"),1) = "ABS,ESP"
End With
.ApplyFilter
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
436
|
I have several columns, but noticed that the filter is using AND between columns, but I need OR clause for filtering. Is it possible
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
With .Columns.Add("Item")
.DisplayFilterButton = True
.DisplayFilterPattern = False
.Filter = "Child 1"
.FilterType = 240
End With
With .Columns.Add("Date")
.DisplayFilterButton = True
.DisplayFilterPattern = False
.DisplayFilterDate = True
.FilterList = 9474 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exNoItems
.Filter = #12/28/2010#
.FilterType = 4
End With
.FilterCriteria = "%0 or %1"
.Description(23) = "<font ;18><fgcolor=FF0000>or</fgcolor></font>"
.Description(11) = "<font ;18><fgcolor=FF0000>and</fgcolor></font>"
With .Items
h = .Add("Root 1")
.Caption(.Add("Child 1"),1) = #12/27/2010#
.Caption(.Add("Child 2"),1) = #12/28/2010#
h = .Add("Root 2")
.Caption(.Add("Child 1"),1) = #12/29/2010#
.Caption(.Add("Child 2"),1) = #12/30/2010#
End With
.ApplyFilter
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
435
|
Is it possible exclude the dates being selected in the drop down filter window
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
With .Columns.Add("Date")
.SortType = 2
.DisplayFilterButton = True
.DisplayFilterPattern = False
.DisplayFilterDate = True
.FilterList = 9474 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exNoItems
End With
With .Items
.Add #12/27/2010#
.Add #12/28/2010#
.Add #12/29/2010#
.Add #12/30/2010#
.Add #12/31/2010#
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
434
|
How can I display a calendar control inside the drop down filter window
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
With .Columns.Add("Date")
.SortType = 2
.DisplayFilterButton = True
.DisplayFilterPattern = False
.DisplayFilterDate = True
.FilterList = 1282 ' FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exNoItems
End With
With .Items
.Add #12/27/2010#
.Add #12/28/2010#
.Add #12/29/2010#
.Add #12/30/2010#
.Add #12/31/2010#
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
433
|
Is it possible to include the dates as checkb-boxes in the drop down filter window
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
With .Columns.Add("Dates")
.SortType = 2
.DisplayFilterButton = True
.DisplayFilterPattern = True
.DisplayFilterDate = True
.FilterList = 1280 ' FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
.Filter = "to 12/27/2010"
.FilterType = 4
End With
With .Items
.Add #12/27/2010#
.Add #12/28/2010#
.Add #12/29/2010#
.Add #12/30/2010#
.Add #12/31/2010#
End With
.ApplyFilter
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
432
|
How can I filter items for dates before a specified date
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
With .Columns.Add("Dates")
.SortType = 2
.DisplayFilterButton = True
.DisplayFilterPattern = True
.DisplayFilterDate = True
.FilterList = 1026 ' FilterListEnum.exShowFocusItem Or FilterListEnum.exNoItems
.Filter = "to 12/27/2010"
.FilterType = 4
End With
With .Items
.Add #12/27/2010#
.Add #12/28/2010#
.Add #12/29/2010#
.Add #12/30/2010#
.Add #12/31/2010#
End With
.ApplyFilter
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
431
|
Is it possible to filter dates
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
With .Columns.Add("Dates")
.SortType = 2
.DisplayFilterButton = True
.DisplayFilterPattern = True
.DisplayFilterDate = True
.FilterList = 1026 ' FilterListEnum.exShowFocusItem Or FilterListEnum.exNoItems
End With
With .Items
.Add #12/27/2010#
.Add #12/28/2010#
.Add #12/29/2010#
.Add #12/30/2010#
.Add #12/31/2010#
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
430
|
Is it possible to change the Exclude field name to something different, in the drop down filter window
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.Description(25) = "Leaving out"
With .Columns.Add("Items")
.DisplayFilterButton = True
.DisplayFilterPattern = False
.FilterList = 9472 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
End With
With .Items
h = .Add("Root 1")
.Add "Child 1"
.Add "Child 2"
h = .Add("Root 2")
.Add "Child 1"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
429
|
How can I display the Exclude field in the drop down filter window
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
With .Columns.Add("Items")
.DisplayFilterButton = True
.DisplayFilterPattern = False
.FilterList = 9472 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
End With
With .Items
h = .Add("Root 1")
.Add "Child 1"
.Add "Child 2"
h = .Add("Root 2")
.Add "Child 1"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
428
|
Is it possible to show and ensure the focused item from the control, in the drop down filter window
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
With .Columns.Add("Items")
.DisplayFilterButton = True
.DisplayFilterPattern = False
.FilterList = 1280 ' FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
End With
With .Items
h = .Add("Root 1")
.Add "Child 1"
.Add "Child 2"
h = .Add("Root 2")
.Add "Child 1"
.SelectItem(.Add("Child 2")) = True
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
427
|
Is it possible to show only blanks items with no listed items from the control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
With .Columns.Add("Items")
.DisplayFilterButton = True
.DisplayFilterPattern = False
.FilterList = 16386 ' FilterListEnum.exShowBlanks Or FilterListEnum.exNoItems
End With
With .Items
h = .Add("Root 1")
.Add "Child 1"
.Add "Child 2"
h = .Add("Root 2")
.Add "Child 1"
.Add "Child 2"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
426
|
How can I include the blanks items in the drop down filter window
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
With .Columns.Add("Items")
.DisplayFilterButton = True
.DisplayFilterPattern = False
.FilterList = 16640 ' FilterListEnum.exShowBlanks Or FilterListEnum.exShowCheckBox
End With
With .Items
h = .Add("Root 1")
.Add "Child 1"
.Add "Child 2"
h = .Add("Root 2")
.Add "Child 1"
.Add "Child 2"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
425
|
How can I select multiple items in the drop down filter window, using check-boxes
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
With .Columns.Add("Items")
.DisplayFilterButton = True
.DisplayFilterPattern = False
.FilterList = 256
End With
With .Items
h = .Add("Root 1")
.Add "Child 1"
.Add "Child 2"
h = .Add("Root 2")
.Add "Child 1"
.Add "Child 2"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
424
|
Is it possible to allow a single item being selected in the drop down filter window
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
With .Columns.Add("Items")
.DisplayFilterButton = True
.DisplayFilterPattern = False
.FilterList = 128
End With
With .Items
h = .Add("Root 1")
.Add "Child 1"
.Add "Child 2"
h = .Add("Root 2")
.Add "Child 1"
.Add "Child 2"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
423
|
How can I display no (All) item in the drop down filter window
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.Description(0) = ""
With .Columns.Add("Items")
.DisplayFilterButton = True
.DisplayFilterPattern = True
.FilterList = 2
End With
With .Items
h = .Add("Root 1")
.Add "Child 1"
.Add "Child 2"
h = .Add("Root 2")
.Add "Child 1"
.Add "Child 2"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
422
|
Is it possible to display no items in the drop down filter window, so only the pattern is visible
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
With .Columns.Add("Items")
.DisplayFilterButton = True
.DisplayFilterPattern = True
.FilterList = 2
End With
With .Items
h = .Add("Root 1")
.Add "Child 1"
.Add "Child 2"
h = .Add("Root 2")
.Add "Child 1"
.Add "Child 2"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
421
|
How can I sort the value gets listed in the drop down filter window
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.MarkSearchColumn = False
.Description(0) = ""
.Description(1) = ""
.Description(2) = ""
With .Columns.Add("P1")
.DisplayFilterButton = True
.DisplayFilterPattern = False
.FilterList = 16
End With
With .Columns.Add("P2")
.DisplayFilterButton = True
.DisplayFilterPattern = False
.FilterList = 32
End With
With .Items
h = .Add("Z3")
.Caption(h,1) = "C"
.Caption(.Add("Z1"),1) = "B"
.Caption(.Add("Z2"),1) = "A"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
420
|
How can I add or change the padding (spaces) for captions in the control's header
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.Columns.Add("Padding-Left").Def(52) = 18
With .Columns.Add("Padding-Right")
.Def(53) = 18
.HeaderAlignment = 2
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
419
|
Do you have any plans to add cell spacing and cell padding to the cells
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.DrawGridLines = -2 ' &Hfffffffc Or GridLinesEnum.exVLines
With .Columns.Add("Padding-Left")
.Def(0) = True
.Def(48) = 18
End With
.Columns.Add("No-Padding").Def(0) = True
.Columns.Add("Empty").Position = 0
With .Items
.Caption(.Add("Item A.1"),1) = "Item A.2"
.Caption(.Add("Item B.1"),1) = "Item B.2"
.Caption(.Add("Item C.1"),1) = "Item C.2"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
418
|
Is it possible display numbers in the same format no matter of regional settings in the control panel
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.Columns.Add("Def").Def(17) = 1
With .Items
h = .Add(100000.27)
.FormatCell(h,0) = "(value format '') + ' <fgcolor=808080>(default positive)'"
h = .Add(100000.27)
.FormatCell(h,0) = "(value format '2|.|3|,|1|1')"
h = .Add(-100000.27)
.FormatCell(h,0) = "(value format '') + ' <fgcolor=808080>(default negative)'"
h = .Add(-100000.27)
.FormatCell(h,0) = "(value format '2|.|3|,|1|1')"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
417
|
Is it possible to add a 0 for numbers less than 1 instead .7 to show 0.8
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.Columns.Add("Def").Def(17) = 1
With .Items
h = .Add(0.27)
.FormatCell(h,0) = "(value format '') + ' <fgcolor=808080>(default)'"
h = .Add(0.27)
.FormatCell(h,0) = "(value format '|||||0') + ' <fgcolor=808080>(Display no leading zeros)'"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
416
|
How can I specify the format for negative numbers
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.Columns.Add("Def").Def(17) = 1
With .Items
h = .Add(-100000.27)
.FormatCell(h,0) = "(value format '') + ' <fgcolor=808080>(default)'"
h = .Add(-100000.27)
.FormatCell(h,0) = "(value format '||||1') + ' <fgcolor=808080>(Negative sign, number; for example, -1.1)'"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
415
|
Is it possible to change the grouping character when display numbers
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.Columns.Add("Def").Def(17) = 1
With .Items
h = .Add(100000.27)
.FormatCell(h,0) = "(value format '') + ' <fgcolor=808080>(default)'"
h = .Add(100000.27)
.FormatCell(h,0) = "(value format '|||-') + ' <fgcolor=808080>(grouping character is -)'"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
414
|
How can I display numbers with 2 digits in each group
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.Columns.Add("Def").Def(17) = 1
With .Items
h = .Add(100000.27)
.FormatCell(h,0) = "(value format '') + ' <fgcolor=808080>(default)'"
h = .Add(100000.27)
.FormatCell(h,0) = "(value format '||2') + ' <fgcolor=808080>(grouping by 2 digits)'"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
413
|
How can I display my numbers using a different decimal separator
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.Columns.Add("Def").Def(17) = 1
With .Items
h = .Add(100.27)
.FormatCell(h,0) = "(value format '') + ' <fgcolor=808080>(default)'"
h = .Add(100.27)
.FormatCell(h,0) = "(value format '|;') + ' <fgcolor=808080>(decimal separator is <b>;</b>)'"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
412
|
Is it possible to display the numbers using 3 (three) digits
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.Columns.Add("Def").Def(17) = 1
With .Items
h = .Add(100.27)
.FormatCell(h,0) = "(value format '') + ' <fgcolor=808080>(default)'"
h = .Add(100.27)
.FormatCell(h,0) = "(value format '3') + ' <fgcolor=808080>(3 digits)'"
h = .Add(100.27)
.FormatCell(h,0) = "(value format 2) + ' <fgcolor=808080>(2 digits)'"
h = .Add(100.27)
.FormatCell(h,0) = "(value format 1) + ' <fgcolor=808080>(1 digit)'"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
411
|
Is it possible to format numbers
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.MarkSearchColumn = False
.SelBackColor = .BackColor
.SelForeColor = .ForeColor
.ShowFocusRect = True
With .Columns
.Add "Name"
With .Add("A")
.SortType = 1
.AllowSizing = False
.Width = 36
.FormatColumn = "len(value) ? value + ' +'"
End With
With .Add("B")
.SortType = 1
.AllowSizing = False
.Width = 36
.FormatColumn = "len(value) ? value + ' +'"
End With
With .Add("C")
.SortType = 1
.AllowSizing = False
.Width = 36
.FormatColumn = "len(value) ? value + ' ='"
End With
With .Add("A+B+C")
.SortType = 1
.Width = 64
.ComputedField = "dbl(%1)+dbl(%2)+dbl(%3)"
.FormatColumn = "type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3|,|1' ) : (dbl(value)>0 ? '<fgcolor=00" & _
"00FF>+'+(value format '2|.|3|,' ): '0.00') )"
.Def(17) = 1
End With
End With
With .Items
h = .Add("Item")
.CaptionFormat(h,4) = 2
h = .Add("Item 1")
.Caption(h,1) = 7
.Caption(h,2) = 3
.Caption(h,3) = 1
h = .Add("Item 2")
.Caption(h,1) = -2
.Caption(h,2) = -2
.Caption(h,3) = -4
h = .Add("Item 3")
.Caption(h,1) = 2
.Caption(h,2) = 2
.Caption(h,3) = -4
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
410
|
Is it possible background color displayed when the mouse passes over an item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.Columns.Add "Def"
.HotBackColor = RGB(0,0,128)
.HotForeColor = RGB(255,255,255)
With .Items
.Add "Item A"
.Add "Item B"
.Add "Item C"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
409
|
Is it possible to specify the cell's value but still want to display some formatted text instead the value
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.MarkSearchColumn = False
With .Columns
.Add "Name"
With .Add("Values")
.SortType = 1
.AllowSizing = False
.Width = 64
.FormatColumn = "((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)"
.Def(17) = 1
End With
End With
With .Items
.FormatCell(.Add("Item A"),1) = "`<none>`"
.Caption(.Add("Item 1"),1) = 10
.Caption(.Add("Item 2"),1) = 15
.Caption(.Add("Item 3"),1) = 25
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
408
|
I am using the FormatColumn to display the current currency, but would like hide some values. Is it possible
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.MarkSearchColumn = False
With .Columns
.Add "Name"
With .Add("Values")
.SortType = 1
.AllowSizing = False
.Width = 64
.FormatColumn = "((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)"
.Def(17) = 1
End With
End With
With .Items
.FormatCell(.Add("Item A"),1) = " "
.Caption(.Add("Item 1"),1) = 10
.Caption(.Add("Item 2"),1) = 15
.Caption(.Add("Item 3"),1) = 25
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
407
|
I am using the FormatColumn to format my columns. Is it possible to ignore the SelForeColor, so the foreground color for selected items does not override my settings
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function List1_SelectionChanged()
With List1
With .Items
.ClearItemBackColor -1
.ItemBackColor(.SelectedItem(0)) = RGB(128,255,255)
End With
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.MarkSearchColumn = False
.SelForeColor = .ForeColor
.SelBackColor = .BackColor
.ShowFocusRect = False
With .Columns
With .Add("Format")
.FormatColumn = "type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3|,|1' ) : (dbl(value)>0 ? '<fgcolor=00" & _
"00FF>+'+(value format '2|.|3|,' ): '0.00') )"
.Def(17) = 1
End With
End With
With .Items
.Add 10
.Add -8
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
406
|
Is it possible to change the height for all items at once
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.Columns.Add "Items"
With .Items
.Add "Item 1"
.Add "Item 2"
.Add "Item 3"
.Add "Item 4"
End With
.EndUpdate
.DefaultItemHeight = 12
.Items.ItemHeight(-1) = 12
End With
End Function
</SCRIPT>
</BODY>
|
|
405
|
How can I change the shape of the line to be shown when user drag and drop data over the control
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function List1_OLEStartDrag(Data,AllowedEffects)
' Data.SetData("data to be dragged")
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.OLEDropMode = 1
.VisualAppearance.Add 1,"C:\Program Files\Exontrol\ExList\Sample\VB\DragDrop\insert_bottom.ebn"
.Background(96) = &H1000000
.Columns.Add "Default"
With .Items
.Add "Item 1"
.Add "Item 2"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
404
|
How can I highlight the item from cursor when the user drag and drop data over the control
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function List1_OLEStartDrag(Data,AllowedEffects)
' Data.SetData("data to be dragged")
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.OLEDropMode = 1
.Background(96) = RGB(1,0,0)
.Columns.Add "Default"
With .Items
.Add "Item 1"
.Add "Item 2"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
403
|
How can I start drag and drop items
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function List1_OLEStartDrag(Data,AllowedEffects)
' Data.SetData("to be carried by drag and drop")
With List1
AllowedEffects = 1
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.OLEDropMode = 1
.Columns.Add "Default"
With .Items
.Add "Item 1"
.Add "Item 2"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
402
|
When I'm trying to show string with "line break" character (vbCrLF) in a textbox, it shows 2 squares. Is there any way to hide these squares
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
With .Columns
.Add "Value"
With .Add("CellSingleLine = False")
.ComputedField = "%0"
.Def(16) = False
End With
With .Add("FormatColumn/replace CRLF")
.ComputedField = "%0"
.FormatColumn = "value replace `\r\n` with ``"
End With
With .Add("FormatColumn/replace TAB,CRLF")
.ComputedField = "%0"
.FormatColumn = "(value replace `\t` with ``) replace `\r\n` with ``"
End With
End With
With .Items
.Add "a\ta\r\nb\tb"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
401
|
The Column.Alignment property does not seem to work for cells with images in them. What can be done
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With List1
.BeginUpdate
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.DrawGridLines = -1
.HeaderHeight = 24
.DefaultItemHeight = 24
With .Columns.Add("Image")
.AllowSizing = False
.Width = 32
.HTMLCaption = "<img>1</img>"
.HeaderAlignment = 1
.Alignment = 1
.Def(17) = 1
End With
.Columns.Add "Rest"
With .Items
.Add "<img>1</img>"
.Add "<img>2</img>"
.Add "<img>3</img>"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|